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INTRODUCTION 

This program allows the operator to: 

1. Read forward either binary or bed for any set block length 
(block gap must be 3/4" or more with the exception when a tape trans- 
port is in the continue operation) . 

2. Read backward either binary or bed for any set block length. 

3. Space forward or backward a stated number of blocks. 

4. Write forward either binary or bed in standard IBM format. 

5. Read check forward or back. 

6. Rewind the tape transport back to load point. 

7. Operate tape transports in a continuous mode, i.e., read 

or write on a given tape unit without stopping the transport between 
blocks . 

8. Read or write with an early completion, i.e., the transport 
stops at end of block but programmer is given 3 extra milliseconds. 

9. Examine status of a tape dee without interrupting tape 
control. 

10. Give an illegal tape operation command without effecting 
the tape control unit. 

11. Monitor the block count and status bits after a normal 
return. 

12. Check for parity or mischaracter errors during read opera- 
tions. 

13. Control the operations of 1 to 3 tape units. 

The calling sequence is such: 

law or lac command 

jda tape 

initial address back or forward (always smaller value) 
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final address & 1 back or forward (always larger value) 
hit non normal return 
hit normal return 


BITS 


COMMANDS 


6 


continue different unit - early 
complete - forward or back 


3 


its your gap - forward or back 


8 


read check - forward or back 


9 


space - forward or back 


10 


operate* - forward or back 


11 


rewind if a (1) - normal operation 
if (0) 


12 


back if (1) - forward if (0) 



13 write if (1) - read if (0) 

14 even parity (bed) alpha if (1) - 

odd parity (binary) if (0) 

15 not used 

16 unit nvimber 

17 unit number 

*Operate bit must be on to initiate a tape operation, otherwise, 
a non normal return will occur. 

BITS IN 10 STATUS 

ready when (0) 

1 rewind when (0) 

2 write lock out when (0) 
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3 load point when (0) 

4 full reel when (0) 

5 low reel when (0) 

6 end point when (0) 

7 auto when (0) 

When the ready bit if off, it means that the tape unit in question 
may be used. Bit 1 , auto, says that the tape unit exists, is turned 
on, the tape control unit is plugged in and auto switch is in an 
auto position. 

OPERATIKG PROCEDURE 

Turn on the desired tape units and tape control. Be sure to 
press the stop button to clear out motor control flip-flops and other 
associated logic. Begin tape operation using the calling sequence 
stated above. The initial address must be greater than but not 
equal to and the final address must be less than 7777 but not 
equal to 7777. Be sure to make the final address & 1. 

NOTES 

A non normal return will occur if the operate bit is off. At 
this time, the 10 will have the status of the tape unit in question, 
or if the last operation was a continue type, it will have the status 
of the tape dec that is in operation. Normally, the acctimulator will 
be cleared except when the last operation was a continue type. Then 
the AC will contain the command of the last operation. If the rewind 
command is given a normal return will occur with the accumulator 
cleared and the status of the tape dec just commanded in the 10. After 
a read or a write operation, the normal return will show the block 
count in the accumulator and the status of the tape transport in 
the 10. A write operation will always return to a noannal return. 
However, in a read operation, it is possible that a parity or a 
mischaracter will occur. If this happens, a non normal return will 
result. If a parity error was detected. Flag 4 will be set, the 10 
will contain the status bits, and the current address will appear in 
the AC. 
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If a parity error and mischaracter error occur, the 10 contains 
status, AC contains current address and Flag 4 and 6 are set. Mis- 
character sets Flag 6. 

Flag 2 is used to detect characters. 

One should not try to begin reading in the middle of a block. 
Flag 2 will not get set imnediately because the tape transport will 
not have had a chance to move for about 1.8 milliseconds. A non 
normal return will occur with the result of no characters being read. 

Writing bed with all zeros is the same as saying "writing blank 
tape". This program will assume that a character was missed if it 
sees blank tape within a block of characters. One should be careful 
when writing bed to be sure all zeros are coded unless the purpose 
is to write blank tape. 

When working near end point it is suggested that blank tape be 
written at end point to clear out undesirable characters that might 
interfere with read programs. 

It is suggested that the programmer should not try to replace 
blocks as there is a possibility that erroneous results will appear 
when reading. 

If continue operations are desired, bit 7, the programmer must 
generate the proper timing for interrecord gaps during writing. 
However, read operations may be flexible. In this mode, it is necess- 
ary to allot approximately 1.0 millisecond to the tape control program 
This leaves about 9.0 milliseconds program time for transition of 
IBM 3/4" interrecord gaps. 

Writing records with the "your gap" bit on adds a new dimension 
to the method of writing. A means must be provided for getting tape 
up to speed before a write command is initiated. This is due to the 
fact that the write start delay is taken away when bit 7 is on. Thus, 
one must make the last operation a "your gap" type before a write 
calling sequence (with bit 7 on) is used. Example: 

law 2602 , space forward - your gap - unit 2 

jda tape 

1 

4000 ,not used with spacing 

hit 
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jsp 9 milliseconds 

law 2222 .write forward - normal stop - unit 2 

jda tape 

1 

4000 

hit 

hit , final stop after writing two blocks 

Normally TCP will generate a 3/4" gap during all operations. If 
one wishes to have additional program time, bit 6 will take away the 
necessary 3 milliseconds transport stopping time and give it to the 
programmer. If this time is not used up before another command is 
given, the 3/4" IRG will become smaller when writing. 

During a rewind operation, the initial and final addresses of 
the programmers calling sequence are not used. At this time, the 
block count is set to zero. 

Read checking does not destroy the contents of memory. When 
a character does not readcheck. Flag 6 will be set and a non normal 
return will occur with the AC containing the address of the word 
that did not read check. The 10 will contain the status bits. This 
program does not readcheck the last address when block length is 
equivalent to the difference between the initial and final addresses 
of the calling sequence. However, if the block length is greater 
than this difference, the last word will be checked. 

When a spacing command is given, the initial address represents 
the number of blocks forward or back of the final address is not used 
Flag 6 will be set during this operation but may be ignored. 

Here are some examples of octal commands that can be executed. 

000202 ,read forward binary - unit 2 

000242 ,read back binary - unit 2 

000341 , rewind - unit 1 

000222 , write binary - unit 2 

000601 , space forward - unit 1 

000642 , space backward - unit 2 

SYMBOLIC PROGRAM 

In the following program, the first few registers are used to 
determine the initial and final addresses and where it says operate 
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bit off, is where a decision is made to see whether or not one 
should continue down through the program or give a non normal return. 
At P102, a non normal return will occur if the operate bit is off. 
From P104 to P60, a decision is made as to whether the operation was 
a continue type or not. If it was not a continue, then a jump is 
made to P60 where the tape dec is started. Then from P103 down to 
just before P113, initializing is taking place for a read forward 
operation. However, down at P113, this initializing is altered 
depending upon whether or not the operation is a read operation or one 
of the other commands. These decisions are made between P113 and P120 
From P120 down to P134 the initial and final addresses are put into 
the proper subroutines of the tape control program. P134 is the 
pointer to the different small subroutines used for back reading, 
forward reading, and writing, etc. Also P131 is used in this same 
manner. From P132 down to P45 is the read forward subroutine. P45 
down to P56 is the jump out spot for all the subroutines. This is 
where all the decisions are made as to whether or not it is an early 
complete or parity error or mischaracter. From Bread down to P50 
is the back read subroutine. From Write down to Space is the write 
subroutine. From Space to rdck is the space routine. From rdck down 
to Q30 is the read check routine. From Q30 to read is where the 
writing is done. From the word read down to P31 is where all read, 
readcheck, and spacing programs jsp to. Here the timing is done per 
character and when a character is missed a jump back to the assigned 
subroutine will occur at P31. From delay to the word exit is self 
explanatory, this is the one delay used in the program for all 
starting and stopping. The registers following exit are all fixed 
or variable storage area. From T112 down to T120 contains the 
proper delay timing for 3/4" IBM format interrecord gaps. 
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,TAPE CONTROL PROGRAM S. L, 

, calling sequence 

,law or lac command 

, j da tape 

, initial address back or forward 

, final address back or forward 

,hlt non normal return 

,hlt normal return 



opd msm 


720073 


opd mwc 


720071 


opd mrc 


720072 


opd mec 


720034 


opd mcb 


720070 


org 7000 






tape 









dap 


« & 1 


QlOO 


lac 






dap 


kl 




idx 


QlOO 




lac 


* QlOO 




dap 


k2 




idx 


QlOO 




dap 


k3 




lio 


tape 




rir 


s8 




spi 






jmp 


P104 




lac 


T105 




sza 






jmp 


P102 




lio 


tape 




msm 






cla 




P102 


mec 






jmp 


* k3 


P104 


lac 


tape 




and 


Till 




dac 


T3 




lac 


T105 




dac 


T2 




and 


Till 




sas 


T3 




jmp 


P60 




mec 






spi 






jmp 


P103 



t command 



, operate bit off 
, tape is stopped 



, strobe status 



,what unit number 



,was last operation continue 



,is present unit busy 
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P60 
P103 



pll3 

pi 14 

pll5 
pi 16 



pll7 



lio 


tape 


msm 




dzm 


tl05 


dzm 


tl22 


law 


pl32 


dap pi 31 


law 


pl31 


dap pi 34 


law Q6 


dap pi 2 2 


dap Q7 & 1 


dap Q7 & 3 


dap QIO & 2 


law 


6 


dap p32 


law 


Q15 


dap Q13 - 4 


law 


p44 


dap pi 3 3 


law p50 


dap pi 2 5 


law 


p52 


dap pi 30 


law 


Ql 


dap Q13 


mcb 




lio 


tape 


ril 


s6 


spl 




ril 


si 


spi 




jmp 


pi 06 


ril 


si 


spi 




jmp 


pl07 


ril 


si 


spi 




ril 


s2 


spi 




jmp 


pl37 


ril 


si 


spi 




jmp 


pill 


ril 


si 


spi 
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, start up tape transport 
.flag 4 



, early complete different unit 
,its your gap 

,read check 

, space back or forward 
, rewind 

, forward or reverse 

,read or write 
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jmp pll2 
jmp pl20 

pl05 law pl22 

dap pi 2 3 
jmp pll3 

pl06 lac tape 

dac tl05 
law pl22 
dap pi 3 3 
dap pi 2 5 
dap pi 30 
jmp pll4 

pl07 law rdck 

dap pi 34 
jmp pll5 

pllO law space 

dap pi 34 
law pi 34 
dap pi 3 3 
dap pi 2 5 
lac kl 
cma 

dac tllO 
jmp pll6 

pl37 idx k3 

dzm bk 
cli cla 
msm 
mec 
jmp * k3 

pill law bread 

dap pl31 
jmp pll7 

pll2 lac t2 

sza * 
jmp * & 4 
law write & 2 
dap pi 3 4 
jmp pl20 
law write 
dap pi 34 

pl20 lac kl 

dap Q31 
law * 1 
add kl 
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pl34 
pl31 
pi 32 



pl33 
p44 

p45 

pl23 
p46 

pl22 
p32 



p56 



bread 



dap Q6 


dap Q15 


lac 


k2 


dap Q33 


dap Qll 


dap 


tl03 


cli 


7 


jmp pl31 


jmp 


pl32 


lac 


tl07 


dac 


Q7 


lac 


Q32 & 


dac 


Q2 


dac 


Q4 


lac 


Q30 


dac 


Q5 


idx 


bk 


Jsp 


read 


jmp 


p44 


lac 


tH3 


jda delay 


lio 


t3 


ntsm 




jmp 


p46 


lac 


tll4 


jda 


delay 


lac 


Q6 


szf 


6 


jmp p56 , 


lac 


tl22 


sza 


* 


jmp 


« ^ 3 


stf 


4 


jmp 


p56 


idx 


k3 


lac 


bk 


mec 




jmp 


* k3 


lac 


^ pl22 


mec 




jmp 


* k3 


lac 


Q6 


dap Qll 



,is it write, read, rdck, space 
, is it read forward or back 



,your gap 

, fixed delay for eob 



, early complete different 
, fixed stop delay 



, non-normal return 
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dap tl03 




lac k2 




dap Q6 



pl25 
p50 



write 



Q35 



pl30 
p52 



space 



rdck 



dap Q15 
lac tl04 
dac Q7 
lac tl06 
dac Q2 
dac Q4 
dac Q5 
law * 1 
add bk 
dac bk 
stf 6 
jsp read 
jmp p50 
lac tll5 
jda delay 
jmp p45 
lac tll6 
jda delay 
idx bk 
law Q31 
dap pi 2 2 
jmp Q30 
lac tll7 
jda delay 
mcb 

jmp p52 
lac tl20 
jda delay 
jmp p45 
law p22 
dap Q13 
isp tllO 
jmp pl31 
law p44 
dap pi 3 3 
law p50 
dap pi 2 5 
law 2000 
dap p32 
jmp pl31 
law Q6 
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,your gap 
, delay back 



,your gap 

, stopping delay 



DIGITAL EQUIPMENT CORPORATION 



MAYNARD, MASSACHUSETTS 



M-1131 

Page 13 of 16 



dap Q13 - 4 
law Q15 
dap pi 2 2 
dap Q7 & 1 
dap Q7 & 3 
dap QIO & 2 
jmp pi 31 

Q30 nop 

law * 2 
dac t2 

Q31 lio 

Q32 mwc 

ril s6 
cla 

jda delay 
isp t2 
jmp Q32 
nop 
mwc 
nop 

idx Q31 
sad Q33 
jmp Q35 
jmp Q30 

read dap p31 



mcb 

lac tll2 , delay before error miss 

dac t2 



p2 szf 2 

jmp <: & 4 
isp t2 





jmp p^ 

jmp p26 - 1 




law tl23 




cli 




dap 


■ 


mrc 




cla 




nop 


Q13 


jmp Ql 


Ql 


szf 2 




jmp Q2 




szf 2 




jmp Q2 



.tape has no characters 
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szf 2 
jmp Q2 
szf 2 
jmp Q2 
szf 2 
jmp Q2 
szf 2 
jmp Q2 
szf 2 
jmp Q2 
szf 2 
jmp Q2 
szf 2 
jmp Q2 
jmp p22 

Q2 ril s6 

Q7 jmp QIO 

add Q6 
mrc 
dac Q6 
jmp Q3 

QIO lac Q6 

mrc 
idx Q6 
jmp Q3 

Q3 sad Qll 

jmp p26 
szf 2 
jmp Q4 
szf 2 
jmp Q4 
szf 2 
jmp Q4 
szf 2 
jmp Q4 
szf 2 
jmp Q4 
szf 2 
jmp Q4 
szf 2 
jmp Q4 
szf 2 
jmp q4 
szf 2 
jmp Q4 
jmp Q14 
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Q4 ril s6 

mrc 
Q5 nop 

Q6 dio 

cli elf 6 

szf 2 

jmp Q12 

szf 2 

jmp Q12 

szf 2 
* jmp Q12 

szf 2 

jmp Q12 

szf 2 

jmp Q12 

szf 2 

jmp Q12 

szf 2 

jmp Q12 

szf 2 

jmp Q12 

szf 2 

jmp Q12 

jmp Q14 
Q12 lac tl23 

mrc 
Q15 sas 

jmp p26 - 1 

jmp Ql 
Q14 law * 

dac t2 

szf 2 

jsp Q16 

isp t2 

jmp Q14 & 2 

jmp p26 
Q16 dap « & 3 

stf 6 

mrc 

jmp 
p22 szf * 6 ,is it eob 

jmp Q14 

mrc 

elf 7 

jmp p2 

stf 6 
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p26 


szf 


4 




idx 


tl22 




law 


* 14 




dac 


t2 




mrc 




p27 


szf 


2 




jmp 


p26 & 




isp 


t2 




jmp 


p27 




cli 


elf 4 


P31 


jmp 




delay 









dap 


exit 




isp 


delay 




jmp 


« - 1 


exit 


jmp 
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, delay after character 



tll3 


-1777 
-112 


tll4 


-306 


tll5 


-530 


tll6 


-447 


tll7 


-13 


tl20 


-603 


tl22 





tl23 





end . 





, index counter 
,unit no & temp stor 
, initial address 
, final address 
,non norm return 
, address equal 



, continue memory 

, space count 

, block count 

,unit mask 

,begining delay onread mis char 

, forward delay read before stop 

, final stop delay read & write 

,back read delay before stop 

, write start delay 

,eob delay write 

, write delay before stop 

,flag 4 

, storage for read check 
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